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| **FILE**1D**BADIO 
BBBBBBBB AAAAAA DDDDDDDD III 000000 i 
BBBBBBBB AAAAAA DDDDDDDD H1111 000000 i 
8B BB AA AA 0D DD II 00 00 i 
BB BB AA AA 0D DD I] 00 00 i 
BB BB AA AA OD DD I] 00 00 i 
8B BB AA AA DD OD I] 00 00 i 
BBBBEBBB AA AA 0D OD I] 00 00 ; 
8B BA AA DD OD I] 00 00 
BB BB AAAAAAAAAA DD DD I] 00 00 i 
&B BB AAAAAAAAAA DD OD I] 00 00 i 
8B BB AA AA DD DD I] 00 00 peeve i 
8B BB AA AA OD DD I] 00 00 eee ‘ 
BBBBBBBB AA AA DDDDDDDD HII 000000 aus i 
BBBBBBEB AA AA DDDDDDDD HII] 000000 snus ; 
LL IIIIII SSSSSSSS i 
LL HII] SSSSSSSS ; 
tL II SS F 
LL I] SS : 
LL I] SS { 
LL II $s i 
LL II SSSSSS ; 
LL I] SSSSSS { 
LL II ss i 
LL 1] ss | 
LL II $s F 
LL I] ss i 
LLELLELLLLL HII SSSSSSSS i 
LLLLLLLLLL HII SSSSSSSS i 


— 
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BADIO Analyze/Media Input/Output Procedures 1S-sep-1984 $3:40:43 yt Bliss-32 thet te Page 1 
14-Sep-1984 11:54:24 DISKSVMSMASTER:CBAD.SRC JBADIO.B832;1 (1) 
00 MODULE badio (ZTITLE “Ang lyse (nadie Input/Output Procedures’ 
IDENT = ‘vQ4-000') = 
BEGIN 
PITTITIIIIITIIIILL LLL LLL LLL LLL LLL LLL LLL LLL LiL iii 


'@ 
‘e COPYRIGHT (c) 1978, 1980, 1982, 
'* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 


'# ALL RIGHTS RESERVED. 


1984 BY 


H 1 0001 

3 ¢ B06 

; 4 

3 4 004 1 

4 4 

3 J 

; 5 9007 1 * 

3 8 sit 1 * 

3 y 0009 1 * 
; 0010 1 !« * 

3 11 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; \§ Bot ¢ 1 '* ONLY IN ACCORDANCE WITH THE R F SUCH LICENSE AND WITH THE & 

at 0013 1 i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
; (14 0014 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
cs ee 0015 1 i* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
: 16 0016 ie TRANSFERRED. * | 
; 'e e 
3 18 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

H $f Ba59 : - CORPORATION. * 

Py : 7 

: $§ 00 ¢ 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

H Si o6 i : ‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3 ‘® ® 

; @ 0025 1 !* * 

3 26 00 6 1 Lae R RARER ERATE EEA EES 

AR 0027 1! 

, 2 0028 1! 

3 $2 $5 1 !e¢ 

; 0 me i 

031 1°! Facility: 

;. a OO 1! 

ie 00 1! Analyze/Media 

; 34 Ope . % 

3 $ 35 1! Abstract: 

; 6 0036 1! : 

oe ar 0037 1! This module contains the procedures required to perform input 

3 $ 4 : and output operations in both synchronous and asynchronous modes. 

; 40 5026 1 ! Environment: 

; 61 0041 1! / 

; $6 B0e§ 1! VAX/VMS User Mode, Non-Privileged 

2 0043 1! 

3; 46 0044 1 ! Author: 

; (45 0045 1! : 

: 46 74) 1! Michael T. Rhodes, Creation Date: July, 1982 

2. or 0047 1! 

s 48 0048 1 ! Modified By: 

; 6 (O49 0049 1! 

; 0050 1! V03-002 MTROO04 Michael T. Rhodes 11-Mar-1983 

~~ oe 0051 1! Relocate routines ‘bad$retry' and ‘bad$verify_blocks’® to here 

3 26 O26 1! and add routine ‘recoverable_error’ to perform robust 10 error 

3 i bez : recovery actions. 

: 55 055 1! v03-001 MTROOO1 Michael T. Rhodes 15-Dec-1982 

5 28 Bnes ' Modify the AST servicing structure. 
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04-000 Declarations , . 14 Sep #7332 


VAX-11 Bliss-32 yh Ones Page 3 
DISKSVMSMASTER: CBAD.SRCJBADIO.B832;1 (2) 


Las 
ou 


; 60 059 1 XSBITL ‘Declarations’ 

3; 66) 944 , 3 

; 6¢ 0061 1 ! Include Files: 

0062 1! 

> 664 oo8 1 REQUIRE ‘Lib$:baddef'; ! Define BAD's structures. 

3 63 01 1 LIBRARY ‘SYSS$LIBRARY:L1B'; ! Define VMS structures. 

; 66 0184 1 

; OF 0185 1! 

; CB 0186 1! Table of Contents: 

; 9 0187 1! 

; 0 0188 1 FORWARD ROUTINE 

; FF B18 1 bad$ast_serv : NOVALUE, ! AST service routine. 

a 190 1 bad$async_io, ! Perform assynchronous I0. 

ae. 0191 1 bad$sync_To, ! Perform synchronous 10. 

s 76 bias 1 bad$starf_io : NOVALUE, ! Starts the asychrounous 10 operations 

= 01935 1 ! and waits for completion. 
; 0194 1 pederetey : NOVALUE, ! Examine error status and retry recoverable 10 erro 
ei, 0195 1 bad$verify blocks : NOVALUE, ! Verify the contents of each block written to the m. 
3 re Bioe ' recoverable_error; ! If the error condition is recoverable, perform rec. 
; 80 ove Ft. 

3; #81 0199 1 ! Private Storage 

; 82 0200 1! 

= ose) 1 OWN 

; «84 0 4 1 current_lbn, : ! Current Lbn to be transferred. 

; 89 0203 1 devadr : VECTOR C2, LONG], ! Device © dresses for requests. 

; | 66 0204 1 Last_lbn; ! Lbn of Last whole buffer transfer. 

; 87 0205 1 

; 88 0206 1! 

i. a $344 1 ! External references: 

; 208 1! 
i | 0209 1 EXTERNAL ROUTINE 

a 0210 1 bad$check_(\tk : ADDRESSING_MODE (GENERAL), ! Insert bad block into SDBSF if not in MDBSF or SDB 
; 69 0211 1 bad$check_nit : ADDRESSING_MODE (GENERAL), ! Insert bad block into SOBSF if not in non Last tra 
; oe berg ; LIBSMATCH- COND : ADDRESSING_-MODE (GENERAL); ! Match the condition value specified. 

; 0214 1 EXTERNAL 

; «97 0215 1 bad$gl_chan, ! Channel number for device. 

; | «698 0216 1 bad$gl_context : BITVECTOR (32) ! Global control context flags. 

: 99 0217 1 bad$ga_bufadr : VECTOR C2, LONG), i Addresses of the data buffers.\ 

; 100 0218 1 bad$ga_device : SBBLOCK Cdsc$c_s_binl], ! Address of device name descriptor. 

3 101 0219 1 bad$gl_devtype, ! Device type. 

3 10e 0220 1 bad$gl_func, : 10 function code for $10. 

; 10 8 $i 1 bad$gq_iosb : VECTOR (4, LONG), ! I0SB Vector for both transfers. 

3 6104 § 1 bad$gl_pagcnt, ' Number of pages transfered. 

3 105 0 1 bad$gl_status, ! Global status. 

3: 106 0224 1 bad$ga_tpb, ! Address of the test pattern buffer. 

3 +34 4 $2 ' bad$gl_trnsfr_cnt; ! Number of bytes per transfer. 

; 109 0397 1! 

3 110 0228 1 ! Define message codes... 

3 6995 0229 1! 

; Ng O 1 EXTERNAL LITERAL 

-. $F ' | bad$_readerr, ! Read error. 

3 (114 3 § 1 bad$_writeerr; ! Write error. 

: 116 0235 1 


5 
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3 A Bliss-32 V4. 
_v04- badSast_serv -- AST service routine 14-Sep-1984 $738 I R 


X-11 0-74 Page 4 
SKSVMSMASTE a UAB ShC9BAD 10.832: ° ( 


3) 


ZSBTTL ‘badSast_serv <= AST service routine’ 
GLOBAL ROUTINE Bad$ast_serv (astprm, reg_0, reg_1, reg_pc, reg_psl) : NOVALUE = 


Functional Description: 


WAWNWw 


Upon 10 completion, control is transfer here by VMS via AST delivery. 
We perform the following actions: 


1. Check the 10 status returned in the 10 status block selected 
by the AST parameter. 
If the status is unsuccessful, then retry the 10 synchronously. 


2. Update the current block number. 
3. Check for remaining whole buffer transfers pending; 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: rue: 

: If the transfer was a read, initiate verification of 
; the buffer just read, against the test pattern buffer. 
: Set up the next transfer address. 

Issue the 10 request. 

i 

i 

i 

i 
i 

i 
i 

i 

i 
i 
ie 


False: ; : 
Set the device completion event flag. 


Inputs: 


astprm val AST parameter value, used to indicate the 10 request 
parameters such as; the 10 buffer, status block etc.. 

reg_0 val the contents of RO at the time of AST delivery. 

reg_1 val the contents of R1 at the time of AST delivery. 

reg_pc val the contents of the PC at the time of AST delivery. 

reg_psl val the contents of the PSL at the time of AST delivery. 


NOTE: ONLY the astprm is used, all other input parameters are unused. 


BEGIN 
IF NOT .bad$gq_iosb C.astprm * 2) ! Was the transfer successful? 
THEN ! If not, retry the transfer synchronously. 
bad$retry (.devadr C.astprm], .bad$gl_trnsfr_cnt 
bad$gq_iosb L.astprm * 2], .bad$g3_bufadr C.astprm)); 


Update the current LBN. 


Have we finished all of the 
whole buffer transfers? 


NOUS UN $9 ODNOA UE WN $0 ODBNOAUES WN "0 OONC UEFA" ODOONOUS 


current_lbn = .current_lbn + .bad$gl_pagcnt; 


Wr—O Oe QO AE WV OOO NOME WR OOOO SAU RMD OO DOo Orne UNA 09.00 ad 


IF .current_lbn LEQ .last_lbn 
THEN 


BEGIN 
ie 4 bedtel. func AND 2X°3F°) EQL 10$_READLBLK 


bad$verify_blocks (.bad$ga_bufadr C.astprm], 
.bad$gl brostprad. 


If read/vertiy phase, then request 
buffer verification. 


109 OD 09 09 09 09 SI NIN NINN NN PAA AAA AAA AMM EB BEE ELLE 


-devadr C.astorm, 
bad$gq_iosb [.astprm * 2)); 


devadr C.astprm] = .current_lbn; 


OONOAOULS WO OM 


a aa a kk aa a a ai ak a ak tk a at ot a ot 2 = 2 = = 2 = 2 on os SS 
“ 

SOOOOOSOOOOCOCOOCSOCOSOCOOSOSOSO SOO VGOCOSSOOO SOOO COOOOO OOOO OOOCOOOCOOO 

PIPIPIPIPINININIPNININININNYNPINYAINPINPINIPDINPIPINI PI PININININIPONINPININIPIPNUPONoNoNofnononofnory) 


wee ee eee ee ee ee ee ee ee ee ee eee 


WNC 0@~s 


s 


Set up the new address. 


rc_—_—_---- - ——_ —— ——___ ——— —_————— 


—BADI Analyze/Media Input/Output Procedures 
Vv04 badSest serv == RST service routine 
3 «(1746 91 bad$async_io (.astprm); 
: 475 § 9 tates : 
; 176 8 9 ELSE 
3 ive 8 3¢ SSETEF (EFN = 3); 
; «#64179 0 38 RETURN 
: 130 029 
, 181 0298 END; ! of GLOBAL ROUTINE bad$ast_ 
001C 
54 0000° CF 9 
52 046 AC 8 
50 26 01 
5 ween 44 
13 63 € 
esenaat 0D 
53 DD 
0000G CF ODD 
6442 DD 
0000v CF 04 FB 
FC = AG 0000G CF C 
08 AG FC AG ODI 
$9 14 
21 0000G CF 06 +3 
1 
53 DD 
6442 DD 
4943 CF OD 
OQOOGCF42 DD 
0000v CF 04 F 
6442 FC AS OD 
52 DD 
0000v CF 01 FB 


724 DISKSVMSMASTER: CBA. SRC BADIO.B32;1 


18-Sep-1984 $3: $0:43 245 VAX=11 Bliss-32 V4.0-7 
' 


serv 
eTITL 
«PSECT 
00000 CURRENT_LBN: 


LK 
00004 ett ane -BLKB 
QOO00C LAST_LBN: . 


ENTRY 
AB 


—DOwn"D Own DD sr 
> 
n 
= 
g~ 


=e 
ad 
o> 
=] 
° 
~ 


2s: 


Worn "row 


| 
| 
| 
| 
| 


Queue the request. 


! Yes, set the device completion semaphore. 


BADIO Soetyeerneste Input/Output Procedures 


\v04-000\ 
SOWNS ,NOEXE ,2 


- we 


BADSCHECK_LTK, BADSCHECK_NLT 
LIBsaAT CH COND, BADSGL_CRAN 
BAD CONTEXT, BADS$GA~ BUF ADR 
BADS CA sevice. *BADSGL_BEVTYPE 
BADS$G BA 


te: D$Ga | $8 

BADSet PAGCNT, BADSEL |S TATUS 
BAD$GA-TPB, BAD$G pS TRRSrR CNT 
BAD$ RE FADER, BADS “WRITEERR 
SYSSSET 
SCODES,NOWRT,2 
BADSAST ~SERV, Save R2,R3,R4 
DEVADR, 
ASTPRM, Ro 

#1, R2. RO 
BA 5$G0 10SBCROJ, R3 
BADSGA_BUF ADRER21 
BADSGL_TRNSFR_CNT 
DEVADRER2) 
#4, BADSRETR 
BADSGL PAGCNT, CURRENT_LBN 

URRENT_LBN, LAST_LBN 


40, #6, BADSGL_FUNC, #33 


cR2] 
ADSVERIFY BLOCKS 
i _LBN, DEVADR(R2) 


, BADSASYNC_I0 


Page 5 


(3) 


; 0235 
; 0273 


0276 
$44 
0280 


0283 
0288 


0391 


<@m 


bse 


BADI Analyze/Media Input/Output Procedures 15-Sep-19 40:45 VAX-11 Bliss-32 V4.0-74 Pa 6 
¥oe-000 badSest serv 7 $1 service rout ne 122808=198e #7390352 DL SKSVMSMASTERSCBAD. SRCSBADIO.832; 1 = (3) 
| 04 00060 RET : 0280 
03 DD 00061 3$: PUSHL #3 3; 0294 
000000006 00 01 FB 00063 CALLS #1, SYSSSETEF : 

04 0006A RET ; 0298 


; Routine Size: 107 bytes, Routine Base: $CODE$S + 0000 


: 182 0299 1 
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BADI Analyze/Media In 3:40:45 VAX-11 Bliss-32 V4.0-74 Pa 7 
V04 badSstart. io -- Rtart asynchronous 10 transfers 14-Sep-1984 $7560 :32 DISKSVMSMASTER: (BAD.SRCJBADIO.832;1 ws (4) 
ie) 00 1 ZSBTTL ‘bad$start_io <= Start asynchronous 10 transfers’ 
; ! 5 Be ! GLOBAL ROUTINE bad$start_io (last_block) : NOVALUE = 
: 1 ii 
3 188 Be : ; Functional Description: 
: 190 4 1 i This procedure is responsible for starting the asynchronous 10 operations 
; 191 07 1! and waiting for the device completion semaphore to be set. Once device 
; 136 Be ; } completion is indicated, we return to our caller. 
; 194 0 19 Inputs: 
: 138 6 \§ 1 last_block val The Last block number to which a whole buffer 
; 19 1 1! transfer may be made. 
3; «(198 4 #1! 
3 4 4 iF ; Side Effects: 
: 201 0 9 1! event flag 3 is set indicating device comletion. 
; 4 0318 1! asynchrounous io to the device is complete. 
RB 
: 205 0331 BEGIN 
; 206 03 § SCLREF (EFN = 3); ! Clear device completion semaphore. 
; 207 03 last_lbn = .last_block; ! Establish the last whole buffer transfer address. 
; 208 0324 current _lbn = .bad$gl_pagcnt; ! Preset the current transfer block address. 
; 209 0325 devadr F = 0; ' Set the first device transfer address. 
; 210 03 § devadr (1) = .current_lbn; : Set the next transfer address. 
s 2 03 bad$async_io (0); ! Initiate the 10 operations. 
3 \ 0328 pedsesyne io (1); ‘ 
; siz O368 SWAITFR (EFN = 3); ! Wait for device completion semaphore. 
; 215 0331 1 END;  ! of GLOBAL ROUTINE bad$start_io 
-EXTRN SYSSCLREF, SYSSWAITFR 
0004 00000 -ENTRY BADSSTART_IO, Save R2 ; 0301 
52 0000" CF 9E 0006 MOVAB CURRENT_LBN, R2 3 
83 DD 0000 PUSHL @# ; 0322 
000000006 00 1 FB 00009 CALLS #1, SYSSCLREF 3 
0c A2 04 AC 00 00010 MOVL LAST BLOCK, LAST_LBN : 0323 
62 00006 CF 00 00015 MOVL § BADSGL_PAGCNT, CORRENT_LBN ; 0324 
046 A2 D4 dts CLAL DEVADR 3 8 5 
08 A2 dO 10 MOVL CURRENT_LBN, DEVADR+4 : $ 
D4 + 1 CLRL -(SP) ; 0 
0000v CF 4 FB 000 ; CALLS #1, BADSASYNC_10 3 
1 0d 000 PUSHL #1 ; 0328 
0000v CF 1 FB QOO2A CALLS #1, BADSASYNC_10 : 
3 0D 0002F PUSHL ; 0329 
00000000G 00 1 FB 4 1 CALLS #1, SYSSWAITFR 3 
04 000 RET ; 0331 


; Routine Size: 57 bytes, Routine Base: S$CODES + 0068 


i; 216 0332 1 


OOCoooococoocooo: 


PIPIPIPEARSNIAININMINININYNININININININIPIPINPNPNony 

PP APADAAUIUIVA S 

oc wes -OooO 
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ah 
MEW 0 OOO SW - O0an 
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Ww 


oo 
MEAN @ OOO NOUNE WO OONOV FW —OO0R@ 


oN 


PIA AAA NW 


ZSBTTL ‘bad$async_io <= Perform Aeynchreneus 10 operation’ 
GLOBAL ROUTINE badSasync_io (selector) = 
i 
Functional Description: 
This routine performs all asynchronous 10 operations for the utility. 
Inputs: 


selector Selects the 10 buffer, 10SB, and device addresses. 
It also doubles as the ASTPRM and we add 1 to form the EFN. 


Implicit Inputs: 


bad$gl_chan 10 channel for device 

bad$gl_ func 10 function code 

bad$gq_iosb 10 status block Vector. 

bad$ga_bufadr 10 buffer address Vector. 

bad$gi_trnsfr_cnt Number of bytes to be transfered. 

devadr Device address vector (holds current io request addresses). 


Implicit Outputs: 

The data has been transfered to/from the data buffer. 
Routine Value: 

Success If transfer request was queued successfully. 

Failure If transfer request failed to be queued. 
Side Effects: 


i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: 10 errors are signalled here, rather than by the calter alone. 
lee 
BEGIN 
IF NOT (bad$gl_status = $010 (EFN = .selector + 1, 
CHAN = .bad$gl_chan, 
FUNC = IF .bad$gl_context Cctx_v_retry] 
THEN -bad$gl_ func 
ELSE -bedee" func OR IOSM_INHRETRY, 


ASTPRM = .selector 

P1 = .bad$ga_bufadr C.selector), 
P2 = -bad$gl_trnsfr_cnt 

P35 = -devadr C.selectord)) 


THEN 
SIGNAL (IF (.bad$gl_func AND 2X"3F") EQLU JO$_WRITELBLK 
THEN bad$_writeerr 
LSE bad$_readerr, 
, bad$ga_device, 
-bad$gl_sfatus); 


RETURN -bad$gl_status; 
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_v04~ eatbeync te 7 ertorm Asynchronous 10 operati 122308-1 984 #7 :90:32 DI SKSVMSMASTER- (BAD. SRCSBADIO.B32; 1 


Page 


8 
(5) 


Tog, y 
1$-sep-19 4 


_BADI Analyze/Media Input/Output Procedures 740: 
“¥O4=000 badSesync. o- Bortere Asyachroneus 10 operati 14-Sep-1984 $7399 
(3 275 90 
3 $e 839) END; | of GLOBAL ROUTINE badSasync_to 
| 
| LEXTRN 
000¢ 000 ENTRY 
| 23 60006 CF 9E 0000 VAB 
0006 cf 9 309 VAB 
E 7C 0000C CLRQ 
| 7E 04 of CLAL 
51 of AC 00 1 OVL 
88 O'CF41 DD 00014 PUSHL 
000G CF dD 00019 PUSHL 
QOOOGCF41 DD 0001D PUSHL 
51 0D 00022 PUSHL 
FF34 64 F 00024 SHAB 
50 51 1 78 + 8 ASHL 
eoeeetr DF 0002C PUSHAL 
04 0000G CF 03 €1 00031 BBC 
62 0D 94 7 PUSHL 
A 11 00039 BRB 
50 62 00008000 F C9 00038 1$: BISL3 
0 DD 0004 PUSHL 
0000G CF DD 00045 2$: PUSHL 
01 Al 9F 00049 PUSHAB 
000000006 09 Oc FB 4984 CALLS 
6 50 00 0005 VL 
24 29 E8 00056 BLBS 
63 DD 00059 PUSHL 
0000G CF 9F 0005B PUSHAB 
01 DD 0005F PUSHL 
20 62 06 00 8 00061 CMPZV 
08 12 00066 BNEQ 
00000000G 8F DD 00068 PUSHL 
6 11 OO06E BRB 
000000006 8F ODD fh 3$: PUSHL 
000000006 90 4 4 0076 4$: CALLS 
0 63 D 30078 5$: MOVL 
04 00080 RET 


3; Routine Size: 129 bytes, Routine Base: S$CODES + O0A4 


: 277 0392 1 


45 
724 


VAX-11 
DISKSVMSMASTER: (BAD 


SYS$Q10 
BADSASYNC_IO Saye R2,R3 
BAD$SGL_STATUS, R 
BADSGL-FUNC, R2 
-(SP 

=($P) 

SELECTOR R1 
DEVADRERIJ 
BADS$GL_TRNSFR_CNT 
BADSGA_BUF ADRER J 
BADSAST_SERV 


s ; 

BAD$GQ’ 10SBLRO} 

#3, BADSGL_CONTEXT+1, 1$ 
BAOSGL_FUNT 


#52768, BADSGL_FUNC, RO 
BADSGL_CHAN 

1(R1) 

#12, SYS$Q10 

RO. BADSGL_STATUS 


RO, 
BADSGL_STATUS 
BADSGA_DEVICE 


1 
#0, #6, BADSGL_FUNC, #32 
WBADS_WRITEERR 
#BADS$_READERR 


#4, LIBSSIGNAL 
BADSGL_STATUS, RO 


Bl issese v4.0 


snes 
«SRC JBADIO.B32;1 


Bee Se Se Se Se Se Be Se Se Se Be Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Fe He Se Se Se Se 


03 


03 


34 


81 
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ADI Analyze/Media Input/Output Procedures 15-Sep-1984 23:40:45 VAX-11 Bliss-32 V4.0-74 Pa 10 
Soo bad$sync_fo -- Perform ynchronous 10 operation 14-Sep-19 4 #7560532 DISKSVMSMASTER: (BAD. SRC JBADIO.832;1 or (6) 


: ZSBTIL ppatss rnc . te -- Perform Synchronous 10 operation’ 
a 
0 


GLOBAL ROUTIN d$sync_io (bufadr, bytcnt, addr, jiosbadr) = 


Functional Description: 
This routine performs all 10 operations for the utility. 


Inputs: 
bufadr Address of the data buffer 
bytcnt Number of bytes to transfer 
1 addr Device address for data transfer 
iosbadr Address of the 10 status block (see Side Effects) 
Be Implicit Inputs: 
96 4 bad$gl_chan 10 channel for device 
44 be bad$gl_ func 10 function code 
4 Implicit Outputs: 


The data has been transfered to/from the data buffer. 
Routine Value: 


The completion status and byte count of the I0 (as extracted from 
the iosb). 


Side Effects: 


If the iosbadr parameter is omitted, we default to the use of 
bad$gq_iosb [0]. 


10 errors are signalled here, rather than by the caller alone. 


04 
04 
04 
04 
04 
0 


= 


04 
04 
0 


¢ 
: 
¢ 


= 


— 4 OOO oo os) 
AEUM—ODSNO NEW “ODDO MEW MODS Wer Romo oS be ee 


' 
oe 
BEGIN 


BUILTIN 
NULLPARAME TER; 


anna kk tt tk tk tk ek a et a a tt ts 2 a ss a 


Pp 
josbadr : REF VECTOR {2, LONG); 


Be Se Se Be Se Ge Be Se Se Se Se Be Ge Se Ge Ge Ge Se Ge Se Se Se Fe Se Se Se Se Se Se Ge SF Se Ss Se Se Se Se Se Se FF Se Ss Ss Ss Ss Se Se Se Se Ss Se Oe OH Se Ss Se ee 


WAPOPOPUNOPONOPONY 
REASLSSSVSRRGN LS SOVSARnan=Ssewerranvoe 


P 8 If NOT (bad$gl_status = $Q]0W (CHAN = .bad$gl_chan, 
P 9 FUNC = IF .bad$gl_context Cctx_v_retry] 
P 0440 THEN -bad$gl_ func 
P 0441 ELSE :badsal func OR 1OSM_INHRETRY, 
P § 1OSB = IF NULLPARAMETER (4) 
P 044 THEN badSaq_iosb (0) 
P 0444 ELSE iosbadr . 
P 0445 Pl = -bufadr, 
P 044 a = -bytcnt, 
4 P35 = -addr)) 
4 THEN 
44 SIGNAL (IF (.bad$gl_func AND %X°3F") EQLU 10$_WRITELBLK 


6 
BAD! Analyze/Media Input/Output Procedures 14.58 “19 3:40:45 VAX-11 Bliss-32 V4.0-74 & 11 
ws badSsync_io -- eters ynchronous 10 operation 1a-8ep-19 $7539 '52 DLKSVMGMASTER LOAD SRCTBADIO.832:1 = (6) 
13 THEN bad$_writeerr 
: LSE bad$_readerr, 
3 3 bad$ga_device, 
: 339 : .bad$gl_status); 
; 4) 5 RETURN ee pe (03 
3 -ba 
3 ‘8 ° ; ELSE "fosbsd? 83: 
3 38 END; ! of GLOBAL ROUTINE bad$sync_io 
EXTRN SYSS$QI10OW 
0004 000 ENTRY BADSSYNC_IO, Save R2 3; 0394 
52 00006 CF 9E 0000 v BADSGL_FONC. R2 ; 
E 7C 0000 CLROQ -(SP) 3; 0447 
7E Bs 0009 CLRL -(SP) : 
7E 08 ac D 00008 MOVQ BYTCNT, -(SP) : 
04 AC DD OO0OF PUSHL BUFA : 
7E C Bote CLRQ (SP) $ 
04 6c 91 . 14 CMPB (AP), #4 : 
0S if 017 BLSSU é 
10 AC O05 Bate TSTL 16 (AP) : 
09 12 O001C BNEQ Fs 
50 00006 gf 9E OOOIE 1$ MOVAB BAD$GQ_10SB, RO 3 
0 DD 000 PUSHL RO 3 
03 11 000 BRB 3$ 3 
10 as DD 000 ¢: PUSHL aye $ 
04 0000G CF 03 €1 OQ002A 3$: BBC #3, BADSGL_CONTEXT+1, 4$ é 
be op O29 PUSH ADSGL_FUNT 3 
50 62 00008000 BF C9 00034 4$: BISL3 #32768, BADSGL_FUNC, RO F 
0 oD 00035C PUSHL RO 3 
0000G CF DD 000 3 5$: PUSHL BADSGL_CHAN : 
7E D4 0004 CLRL (SP) 3 
ahaa +144: 00 of FB 00044 CALLS #12, SYS$QI0W 3 
000G CF 0 4 004 VL RO, BADSGL_STATUS 3 
26 50 €8 0005 BLBS ‘ 3 
445 CF DD 0005 PUSHL BADSGL_STATUS 3 0453 
000G CF 9F 0005 PUSHAB BADSGA_DEVICE ; 0449 
1 DD 00058 PUSHL @# : 
20 62 06 fo 628 ee #0, #6, BADSGL_FUNC, #32 3 
BNE : 
00000000G 8F DD 00064 PUSHL #BADS_WRITEERR 3 
6 11 Open BRB 3 
00000000G 8F oD 00 : $: PUSHL #BADS_READERR ; 
000000006 60 04 FB 38 $: CALLS #4, LIBSSIGNAL 3 
4 6¢ 91 8$: CMPB) CCAP), 4 > 0455 
1f 7C BLSSU : 
10 AC 9 7E TSTL 16 (AP) : 
06 1 BNEQ 1 : 
50 0000G CF yi 09 9$: mere BAD$GQ_10SB, RO : 0456 
50 10 BC DO 00089 108:  MOVL § @I0SBADR, RO : 0457 
be 0080 RET ; 0459 


ne ee ee nai 


rete 


3; Routine Size: 


; 346 


bods 


yze/m 
sync. 


io 


142 bytes, 


0460 


1 


ia Input/Output Procedures 
-- Perform Synchronous 10 operation 13-Sep-19 


Routine Base: S$CODE$ + 0125 


1986 {1:36 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: 


BAB. °5RC5BAD 10.832; ;1 


Page 


12 
(6) 


—— 


6 
Analyze/Media Input/Output Procedures 1S-sep-19 4 $9:30:83 y - 


Bliss-32 v4.0 
bad$Sretry -- Retry bad block 14-Sep-1984 4:24 u 


X-11 -74 P 3 
SKSVMSMASTE ‘BAD. SRCSBAD10.832;1 se d 


) 


. 61 1 &SBTTL ‘bad$retry -- Retry bad block’ 
36 rh : GLOBAL ROUTINE bad$retry (lbn, cnt, iosb, bufadr) : NOVALUE = 
64 1! 
} ret : } Functional Description: 
4 467 1! An error has been detected during the 10 transfer. 
55 re 1! We will examine the I0SB to determine the number of blocks 
28 r 1! successfully transfered. With this we can ‘skip’ the bad 
5 04 y 1} block and Fong inue to write/read the remainder of the blocks 
28 be? ; ; (recursively if need be!). 
60 ber§ ; Inputs: 
§ 0475 1! Lbn val starting logical block number for the transfers. 
Be 78 1! cnt val number of bytes requested by the 10. 
477 1! iosb adr address of the 10 status block to use. 
5 Bee : } bufadr adr address of the data buffer to use. 
rs] 0480 1 ! Side Effects: 
68 0481 1! 
69 kt) 1! The block which caused the 10 operation to unsuccessfully complete 
70 4835 1! will be retired to the SDBSF (if its not already!). 
71 0484 1! 
7 0485 1 !-- 
7 56 BEGIN 
74 8 MAP 
<2 ot) jiosb : REF VECTOR (4, WORD); ! Allow reference to status/byte count etc.. 
7 0490 LOCAL 
78 0491 bad_block, ! Logical Block Number of the bad block. 
79 049 blocks_done, ! Number of blocks successfully transferred. 
80 049 byte_count, : Number of bytes remaining to be transferred. 
$e Bee next_bufadr; ! The address within the buffer to use during 10. 
+H beoe fr uel cocoverss\e_orrer (,iosb (0]) } cen ye recover wes ps tp apt ol pnaeaan 
! No, inform the use e ‘ 
ef rhs IF en padgal _ func AND %X°3F") EQLU I1OS_WRITELBLK Choose the message (read or write error) 
ad$_writeerr } 
87 500 ELSE bad$_readerr, : 
88 501 badse device, ! Specify the device in question... 
4 B206 -iosb (OI); ! and the specific problem. 
4 ope plocks. done = zlesb fia ( badSk _page_size; Wymber of Blocks supcessfully transferred. 
a ock = .lbn + .blocks_done; ! 
9 208 byté_count = .cnt - bad$k_page_size - ! Bytes remaining to be transferred. 
9% 5 (.blocks_done Baath page_size); ! (round the number of bytes off to page boundary) 
95 208 next_bufadr = .bufad? + (.cnt - .Byte_Count); ! Beginning address within buffer to use during fo. 
3 219 it -bad$gl_context (Cctx_v_ltdevice] } eeeee cleat Flak taseat he tt 
99 216 bad$Scheck_(tk (.bad_block, .bad_block) has not already been recorded, 
' create a new 
401 ae bad$check_ nit (.bad block, .bad_block); ! for this block. 
08 316 IF .iosb C1) LSS .cn ' Has the 10 actually been completed? 
404 051 AND .byte_count GTR ! Do we actually have anything to transfer? 


5 VAX-11 Bliss-32 V4.0-74 Page 14 
24 DISKSVMSMASTER: CBAD. SRC JBADIO.B32;1 (7) 


If so, skip past the bad block and finish up. 


Reset the byte count. 

Use the correct buffer address to complete the I0. 
Transfer the remaining bytes. 

Skip past the bad block to continue. 

Reuse the old 10 status block. 


ERROR during 10?! 

gecuretveny go past bad block(s). 
Starting LBN. 

Number of bytes we wanted to transfer. 
Address of the I0 status block. 
Beginning buffer address. 


v04 bad$retry -- Retry bad block 14-Sep-1984 
THEN 


—— 
‘©-~0co 


iosb (1) = 0; 
bad$sync_io (.next_bufadr, 
byte count, 


.bad_ Block + 1, 
bad. Block 

IF NOT .iosb (0) 

THEN 


bad$retry (.bad_block + 1, 


byte_count, 
ob 163 
.next_bufadr); 


6 
nalyze a Input/Output Procedures “Sep- 240: 
BADI A /Media | /0 Proced 1 Sep-1984 ? 4 
' 
i 
i 
i 
i 
i 


END; 
END; ! of GLOBAL ROUTINE bad$retry 


Se Se ee Ge Ge Ge Ge Ge S46 Ss Ge Ge Ge Ge Geers 
= = 
oO oO 
co w 
laflolelelelelelejolelelelolejloleolo) 


—OODNAOUS WN OO 
PUPVPVSPVSVSVSVSVISVSISISISI STII 
PWN] CVOONOU Swi — 


Fat af of of ot ot ot at at ot ot at te 
NR 2 I IO == 


003C 00000 eENTRY BADSRETRY, Save R2,R3,R4,R5 3 
53 Oc AC 00 00002 MOVL  10SB, ; 0496 | 
7é 63 3C 00006 MOVZWL (R3), -(SP) : 
0000v CF 01 FB 00009 CALLS #1, RECOVERABLE_ERROR : 
e7 50 Es 0000E LBS ; 
E 63 3C 00011 MOVZ2WL (RS), =(SP) ; 0502, 
00006 CF 9F 00014 PUSHAB BADSGA_DEVICE : 0497 | 
01 oD 00018 PUSHL : | 
20 00006 CF 06 00 ED OOO1A CMPZV #0, #6, BADSGL_FUNC, #32 + 0498 | 
08 12 00021 BNEQ ; 
00000000G 8F DD 00023 PUSHL #BADS_WRITEERR 3 
06 11 00029 BRB ; 
000000006 8F DD 000¢6 1$: PUSHL #BAD$_READERR ; | 
000000006 00 04 FB 00031 2$: CALLS #4, L ; 
50 02 A3 3C 00038 3$: MOVZWL 2(R3), BLOCKS DONE 3 0504 | 
50 00000200 8F C6 0005¢ DIVL2. #512, BLOCKS BONE ; 
54 50 04 AC cI 800% ADDL LBN, BLOCKS_BONE, BAD_BLOCK 3 030 
50 50 09 : 0048 ASHL » RO ; 050 
52 08 AC 0 ¢c3 0004C SUBL3 RO cnf, R ; 
52 FEOO C2 9% 0051 MOV -5{2(R25, BYTE_COUNT : 050 
50 08 Ac 52 C3 00056 SUBL3 BYTE COUNT, CNT : 050 
55 50 10 AC C} 0098 ADDL3 BUFADR, RO, NEXT_BUFADR ; 
0D 00006 CF £9 00060 BLBC # BADSGL CONTEXT+1> 4$ > 051 
34 DD 00065 PUSHL BAD_BLOCK : 051 
4 DD 00067 PUSHL BAD"BLOCK ; 
000000006 00 02 FB 00069 CALLS 42. BADSCHECK_LTK ; 
08 11 00070 BRB 5 ; 
4 DD 00072 4$: PUSHL ®BAD_BLOCK > 0514 
54 DD 00074 PUSHL BAD“BLOCK ; 
000000006 00 FB 00076 CALLS a2, BADSCHECK_NLT ; 
08 Ac 02 A3 10 t 6 i 5$: CMP ZV #9, » 2tR3), CNT : 0516 
D 0086 TSTL | BYTE_COUNT : 0517 
3 1 BLEG ; | 
02 A3 B4 OO0BA CLRW (R3) > 0520 


M 6 
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badSretry -- Retry bad block 14-Sep-19 1:54:26 DISKSVMSMASTER: CBAD.SRCJBADIO.832;1 (7 
53 pp 08D USHL R3 : 05 
01 AG OF F PUSHAB 1(BAD_BLOCK) 3; 05 
2g DD ¢ PUSHL BYTE_COUNT 3; 05 
DD 9 PUSHL NEXT BUFADR $ 
FED7 ff 04 fe 096 CALLS #4, BADS$SYNC_IO F 
A $2 E8 00098 BLBS ( ; 0398 
C BB 009 PUSHR #*M<R2,R3,R5> : 0530 
01 A 9F OOOA PUSHAB 1(BAD BLOCK) ; 0528 
FFS8 =F 04 FB A CALLS #4, BADSRETRY ; 0550 
04 AB 6$: RET 3; 05 


; Routine Size: 169 bytes, Routine Base: S$CODE$S + 0183 


422 0535 1 


4 6 
Procedures 15-Sep- 


0 Analyze/Media Input/Out 1984 23:40:45 VAX-11 Bliss-32 V4.0-74 Page 16 
000 badSverify_blocks -- verify contents of blocks 12286871382 #7590 :32 DISKSVMSMASTER:CBAD.SRCJBADIO.832;1 . (8) 

> 424 5 § 1 SSBTTL ‘bad$verify blocks -- vertiy contents of blocks against test passers" 

; é ? 2 4 | GLOBAL ROUTINE bad$verify_blocks (bufadr, bufsiz, devadr, iosb) : NOVALUE = 

: 407 0539 1 | 

3 2 : Bend : Functional Description: 

; 450 0349 1} Compare the contents of the data buffer block by block against the test 

; 431 0545 1! test pattern buffer. If a mismatch occurs, we will look up the block 

3 $36 0544 1! mn the appropriate bad block file. If it has not been recorded previously 

3 $37 034g ! we will create a new entry and retire it to the bad block file (SDBSF). 

5 435 0547 1 ! Inputs: 

; rk 0546 1! 

; 437 0549 1! bufadr adr address of the data buffer. 

; 438 0550 1! bufsiz val size in gb of the data buffer. 

; 439 0551 1! devadr val starting ogicas block number for the transfer. 

; 440 beeg 1! iosb adr address of the 10 status block. 

ere. 088% 1 i Implicit Input 

3 ! Implic nputs: 

3; 44 0555 1! 

3 444 0556 1! bad$ga_tpb address of the current test pattern buffer. 

3; «445 0557 1! 

> 446 0558 1 !-- 

3; 447 0559 BEGIN 

3; 448 0560 LOCAL 

3 re} Bee) bad_block; ! Bad block number (LBN). 

3; «6451 b863 INCR block FROM .bufadr TO .bufadr + .bufsiz - 4 BY bad$k_page_size DO 

3 $26 0564 IF NOT CHSEQL (bad$k_page_size, .block, 

; $65 0565 2 bad$k_page_size, .bad$ga_tpb) 

> 454 0566 é THEN 

; 455 0567 ! The current block has failed. 

; 456 0568 bad_block = .devadr + P ! Compute the LBN of the failure. 

3 ret p288 ((,block = .bufadr) / bad$k_page_size); 

; 459 0571 3 IF .bad$gl_context Cctx_v_ltdevice] ! Check for this block in the 

: 460 bare HE ' appropriate file format. If it 

; 461 057 bad$check_ltk (.bad_block, .bad_block) ' has not already been recorded 

; rr 0574 ! create anew entry in ¢ SDBSF 

; 46 0575 bad$check_nlt (.bad_block, .bad_block); ! for this block. 

3 464 0576 D; 

3; 465 0577 

3; 466 0578 END; ! of GLOBAL ROUTINE bad$verify_blocks 

007C 00000 ENTRY BADSVERIFY BLOCKS, Save R2,R3,R4,R5,R6 ; 0537 
50 04 Ac 08 aC Ci 9008 ADDL3 BUFSIZ, BUFADR, RO ; 0563 
56 FC =AO 4 000. MOVAB =4 y : 
54 04 ac oY itt pave BUFADR, BLOCK : 
0000G ODF 64 0200 er 3 a012 1$ sence #512, (BLOCK), @BADSGA_TPB : 0564 | 
50 4 06 ac C boi SUBL Byr aor BLOCK, RO ; 0569 

50 00000200 8F Cé 00021 Divi2 #512, RO ; 
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BAD! Analyze/Media Input/Out Procedures 8. -$ep-1984 0:45 VAX-11 BLi steze v4.0 Page 17 
FO4-000 badSver ify. blecks == verify contents of blocks 14- eat 9 73 ¢ ‘32 DISKSVMSMASTER: (BAD. She BADIO.B32:1 9 (8) 
55 0 AC C1 00028 ADDL3 DEVADR, <f0 BA 7° K : 
bp 00886 F €9 ny BLBC = BAD$GL BLS : Os71 
3 DD 00032 PUSHL AD -BLOCK + 0573 
| DD 000 PUSHL BAD : 
| 000000006 00 02 FB 000 CALLS a. BADSCHECK _LTK : 
08 11 0003 BRB ; 
55 DD OO003F 28 PUSHL BAD_BLOCK + 0575 
55 DD 00041 PUSHL BAD-BLOCK : 
000000006 00 02 FB 0004 CALLS #2, BADSCHECK_NLT : 
54 0200 (C4 9E OO004A 3$: MOVAB 312(R4) BLOCR + 0564 
56 54 D1 O004F 4$: CMPL _—— BLOCK ke” ; | 
’ BE 15 0005 BLEQ 3=s:«w1$ : 
04 00054 RET : 0578 


; Routine Size: 85 bytes, Routine Base: S$CODE$ + 025C¢ 


: 467 0579 (1 


baie iadicelhienalarcounsiiet leathcineindideabtoasisscierniiiennasteehcignbinemnatniiaaivesaniaiiatiiiiegannitentth etre acetone 


o | 


< 


Bee Fe Oe ee Oe Ge Oe Ge BH Ge Se Oe Oe Ge FH Gs Ge FH SH Ss Be FHS Se SS Se Oe Ge Be He Oe oe OH Se Oe Os Oe Os Oe Oe Oe OH Oe Oe Oe Oe Oe HSE OH OH Se ee es 


SFALLS3 


DPD DPV PPP PPP AVDA SISA AAAI 
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recoverable_error -- Perform recovery action if 14-Sep-1984 11:54:24 DISKSVMSMASTER:(CBAD.SRCJBADIO.832;1 (9) 


ZSBTTL ‘recoverable_error <= Perform recovery action if possibie’ 
ROUTINE recoverable_error (status) = 


' 
Functional Description: 
This procedure is responsible for determining the severity of an 10 error. 


WO OONOuUSwin—O 


a 
5 
5 ! 
2 : 
1 
: i 
05 ! This ‘severity’ is returned to the caller the routine value and is 
bee : categorized into two classes. RECOVERABLE [true] which indicates that a 
58 ‘ recovery action can be performed and NONRECOVERABLE [false] which indicates 
B29 that no recovery action can be performed. 
$39 i The selection for the severity/action is accomplished by ee the 
059 : status supplied by the caller against a List of ‘known recoverable 
0594 : error conditions’. A match generally indicates that the condition is 
0595 ‘ recoverable and all others are considered nonrecoverable. An index is 
0596 : generated which becomes a dispatch argument to CASE to the appropriate 
0597 : action routine. 
0598 ‘ 
3484 } Inputs: 
4 status val the actual 10 error condition returned from the $010. 
$8 i Routine Value: 
04 ‘ 
05 } true the error was recoverable. 
88 : false the error was not recoverable. 
08 1 i-- 
BEGIN 
LITERAL 
opincompl = 1, ' First error condition label. 
parity = 23 ' Last error condition label. 
LOCAL 


Index to action routine. 
Condition severity returned to the caller. 


index, 
recoverable : INITIAL (FALSE); 


index = LIBSMATCH_COND (status, 
RREF (ss$_opincompl), 
ZREF (ss$_parity)); 
case - index FROM opincompl TO parity OF 


opincomp|): If .bad$gl_devtype EQL dt$_rp07 
THEN recoverable = true; 


Find the action routine which matchs this conditio 
Operation incomplete. 
Parity error. 


Spqret ten Incomplete. Special Case, for the RPO? 
this condition ponerenty indicates a media flaw. 
However, for all others it indicates a hardware er 


bper ttyd: recoverable = true; Parity error. Mark the block bad and continue. 


AMAPIPIPOPIPSNPMPEPoN 
—O Oe 


FUN 


RETURN .recoverable; Return the severity of this condition. 


END; ! of ROUTINE recoverable_error 


SSSSSSSSSSSSESSSSESESSSSESSSSSSSSSS 
NOU EWN $0 OONOUESWN Oo 
= PIPININIPIMININININININININIAINININPAININIPIIII IA a a at a a tt tt at st st a st 


SS 
Seen Be ee BH Oe Be we Bt Oe Oe Oe BH Se Be Oe Oe Oe Oe oe Oe BH ee SHH SHO e ee SHO Se Se ee ee ee 


‘ _—_— 
i 


Yoe-000 


——————_ 
Sete te Be Se Se Sete Ge Se Ge Ge 


Routine Size: 


ww 
roror 
ous 


SOWNS 
SCODES 


File 


_$255$DUA28: 


Analyze/Media Input/Output Procedures 
recoverable_error == Perform recovery 


7 
sevion 4 rSeect3RG HEHE 


0004 00000 RECOVERABLE rr 
v 


VAX-11 Bliss-32_V 
DISKSVMSMASTER: (Bade she BADIO.832;1 


one e R2 
5E oS C2 608 SUBL p 
00 CLRL Ref VERABLE 
04 AE O1FS = BFF ¢ 000 MOVZWL ff 4(SP) 
04 E 9F 00000 PUSHAB +30 
04 AE 0204 8F 3C 00010 MOVZWL #724, 4(SP) 
04 AE OF 0018 PUSHAB 4(SP5 
04 as oF B55} PUSHAB STATUS 
000000006 00 03 FB BANS CALLS #3, LIBSMATCH_COND 
1 1 50 CF Babs CASEL NDEX, #1, #1 
0008 0004 00027 1$: WORD s-}3- 
07 0000G CF 01 000 B 28: CMPL FAOSEL DEVTVPE., #7 
03 is 000 BNEQ 4s 
52 01 00 000 ¢ 3$: MOVL #1, RECOVERABLE 
50 52 00 00035 4$: MOVL RECOVERABLE, RO 
04 00038 RET 
57 bytes, Routine Base: S$CODES + 0281 
0635 1 
0636 1 END ! of MODULE badio 
0637 0 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, yond Sarg ptt ts 
746 NOVEC, *NOWRT. RD , EXE,NOSHR, LCL, REL CON, NOPIC,ALIGN(2) 
Library Statistics 
cocccece Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
CSYSLIBILIB.L32;1 18619 15 0 1000 00:01.5 


Be Se Se Se Be Se Be Ge Se Se Ge Se Se Se Se Se SH 
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BAD! Analyze/Media Input/Output Procedures 15- 1366 #360 0:45 ~~ VAX-11 Bliss-32 Feet os Page g9 E 
v04 recoverable_error -=- Perform recovery action if 14- =3eP713 4 4:24 DISKSVMSMASTER: (BAD.SRCJBADIO.B32;1 (9) \ 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:BAD10/0BJ=0BJ$:BADIO MSRC$:BADIO/UPDATE=(ENH$:BADIO) 
; Stee: 746 code + 16 data bytes 
un Time: 00:10.4 


3 pla Time: 749.4 
3 Lines/CPU Min: 64 

3 Senge Aah ts 21394 

; aeety Used: 103 pages 
; Compilation Complete 


Became” | aR eae ae API al ae ee 


001 AH-BT13A-SE EQUIPMENT CORPORATION 


VAX/VMS V4.0 NTIAL AND PROPRIETARY 


